home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / dsystem / menu.bas < prev    next >
BASIC Source File  |  1993-11-30  |  2KB  |  65 lines
  1. 10000 CLEAR ,,,,,1024*300
  2. 10010 DEF FONT "システム   12ﾄﾞｯﾄ"
  3. 10020 SCREEN@0
  4. 10030 SCREEN 0
  5. 10040 COLOR 7,0,7,0
  6. 10050 CLS
  7. 10060 ENDLESS=0
  8. 10070 STAND_WA=7
  9. 10080 FBAI=12/16
  10. 10090 SEL_NO=1
  11. 10100 '
  12. 10110 MENU_WX=242
  13. 10120 MENU_WY=194
  14. 10130 WIN_C=1
  15. 10140 WININ_C=2
  16. 10150 '
  17. 10160 ST=5
  18. 10170 BR=0
  19. 10180 R=127
  20. 10190 G=127
  21. 10200 B=127
  22. 10210 PALMAX=12
  23. 10220 LX=320
  24. 10230 LY=240
  25. 10240 '
  26. 10250 PALETTE 1,[255,0,0]
  27. 10260 PALETTE 2,[80,0,0]
  28. 10270 PALETTE 15,[255,255,255]
  29. 10280 ''''
  30. 10290 '
  31. 10300 *メニューセレクタ
  32. 10310 '
  33. 10320 LINE (MENU_WX,MENU_WY)-(MENU_WX+156,MENU_WY+92),PSET,%WIN_C,BF,%WININ_C
  34. 10330 SYMBOL (MENU_WX+26,MENU_WY+10),"Ｍａｉｋｉｎｇ"    ,FBAI,FBAI,%15
  35. 10340 SYMBOL (MENU_WX+26,MENU_WY+30),"Ｏｐｅｎｉｎｇ"    ,FBAI,FBAI,%15
  36. 10350 SYMBOL (MENU_WX+26,MENU_WY+50),"Ｂｅｇｉｎｎｉｎｇ",FBAI,FBAI,%15
  37. 10360 SYMBOL (MENU_WX+26,MENU_WY+70),"Ｃｌｏｓｉｎｇ"    ,FBAI,FBAI,%15
  38. 10370 ''''
  39. 10380 '
  40. 10390 ' メニューセレクタループ
  41. 10400 '
  42. 10410 WHILE ENDLESS=0
  43. 10420 '
  44. 10430 IF SEL_NO=<0 THEN SEL_NO=4
  45. 10440 IF SEL_NO=>5 THEN SEL_NO=1
  46. 10450 IF SEL_NO=1 THEN CY=20
  47. 10460 IF SEL_NO=2 THEN CY=40
  48. 10470 IF SEL_NO=3 THEN CY=60
  49. 10480 IF SEL_NO=4 THEN CY=80
  50. 10490 '
  51. 10500 WAIT STAND_WA:P=PAD(1):PT=PTRIG(1)
  52. 10510 SYMBOL (MENU_WX+6,MENU_WY+CY),"▽",FBAI,FBAI,%15,1
  53. 10520 IF P=0 AND PT=0 THEN 10630
  54. 10530 IF P=1 THEN SEL_NO=SEL_NO-1
  55. 10540 IF P=5 THEN SEL_NO=SEL_NO+1
  56. 10550 IF PT=1 THEN
  57. 10560   IF SEL_NO=1 THEN RUN "MAKEING.EXP"
  58. 10570   IF SEL_NO=2 THEN RUN "OPENING.EXP"
  59. 10580   IF SEL_NO=3 THEN RUN "CARMINEA.EXP"
  60. 10590   IF SEL_NO=4 THEN END
  61. 10600 ENDIF
  62. 10610 SYMBOL (MENU_WX+6,MENU_WY+CY),"▽",FBAI,FBAI,%WININ_C,1
  63. 10620 '
  64. 10630 WEND
  65.